home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / Rexx / FWMahnung_1.outrexx < prev    next >
Text File  |  1998-11-16  |  5KB  |  233 lines
  1. /*
  2. ** Druck-, Vorschau, Sichern der 1. Mahnung mit Hilfe von FinalWriter
  3. ** $VER: FWMahnung_1.outrexx V1.00 (16.11.98)
  4. */
  5.  
  6. PARSE ARG ARexxPort;
  7.  
  8. ADDRESS VALUE ARexxPort;
  9. OPTIONS RESULTS;
  10.  
  11. FWVorlage    = "FWDokumente/Mahnung1.fw";
  12. FWDokument    = "t:Mahnung1.fw";
  13. FWPort        = "FINALW."
  14.  
  15. LF                = '0a'x;                            /* Zeilenvorschub                */
  16.  
  17. Gefunden = 0;
  18. DO i = 1 TO 20 WHILE(Gefunden = 0)
  19.     IF show(ports, (FWPort || i)) THEN
  20.         DO;
  21.             Gefunden = 1;
  22.             FWPort     = FWPort || i;
  23.         END;
  24. END;
  25.  
  26. IF Gefunden = 0 THEN
  27.     DO;
  28.         ES_TITLE                = "Warnung";
  29.         ES_TEXTFORMAT        = "FinalWriter ist nicht aktiv, bitte starten sie dieses" || LF || "und versuchen Sie es erneut";
  30.         ES_GADGETFORMAT    = "Abbrechen";
  31.         EASY_REQUEST;
  32.         EXIT;
  33.     END;
  34.  
  35. /* Original FW-Dokument nach t: kopieren, um ein versehentliches überschreiben */
  36. /* dieser Vorlage zu verhindern */
  37. GET_REXXPATH;
  38. FWVorlage        = MTR_RESULT || FWVorlage;
  39. ADDRESS COMMAND "copy" FWVorlage FWDokument;
  40.  
  41. /* Oberfläche sperren */
  42. LOCKGUI;
  43.  
  44. /* Art ermitteln: 0 = Drucken, 1 = Vorschau, 2 = Speichern */
  45. PRINTSTATE;
  46. Druckart = MTR_RESULT;
  47.  
  48. Ende_Kennzeichen = 'N';
  49.  
  50. /* Suchen der zu druckenden Daten */
  51. GET_PREFS;
  52. PRINTFIND;
  53.  
  54. DO WHILE( MTR_RESULT > 0 & Ende_Kennzeichen = 'N');
  55.     ADDRESS VALUE FWPort;
  56.     SCREENTOFRONT;
  57.  
  58.     CALL DatenAufbereiten;
  59.     SELECT;
  60.         WHEN Druckart = 0 THEN    /* Drucken    */
  61.             DO;
  62.                 ADDRESS VALUE FWPort;
  63.                 PRINT;
  64.                 ADDRESS VALUE ARexxPort;
  65.                 MTSCREENTOFRONT;
  66.             END;
  67.         WHEN Druckart = 1 THEN    /* Vorschau    */
  68.             ADDRESS VALUE ARexxPort;
  69.         WHEN Druckart = 2 THEN    /* Sichern    */
  70.             DO;
  71.                 ADDRESS VALUE FWPort;
  72.                 SAVEAS;
  73.                 ADDRESS VALUE ARexxPort;
  74.                 MTSCREENTOFRONT;
  75.             END;
  76.         OTHERWISE
  77.             DO;
  78.                 ES_TITLE                = "Warnung";
  79.                 ES_TEXTFORMAT        = "Druckart wird nicht unterstützt!";
  80.                 ES_GADGETFORMAT    = "Ok";
  81.                 EASY_REQUEST;
  82.                 Ende_Kennzeichen    = 'J';
  83.             END;
  84.     END;
  85.  
  86.     PRINTFIND;
  87. END;
  88.  
  89. /* WordWorth-Datei aus t: wieder entfernen */
  90. ADDRESS COMMAND "delete" FWDokument;
  91.  
  92. /* Oberfläche wieder entsperren */
  93. ADDRESS VALUE ARexxPort;
  94. FREEGUI;
  95.  
  96. EXIT;
  97.  
  98. DatenAufbereiten:
  99.  
  100.     ADDRESS VALUE ARexxPort;
  101.  
  102.     IF PREFS.NUMBER_DIGITS > 0 THEN
  103.         DO;
  104.             ZW_Rechnung = RIGHT( (Copies("0",PREFS.NUMBER_DIGITS) || MTR_RESULT), PREFS.NUMBER_DIGITS );
  105.             ZW_Kunde = RIGHT( (Copies("0",PREFS.NUMBER_DIGITS) || OB.INVOICEE_NUMBER), PREFS.NUMBER_DIGITS );
  106.         END;
  107.     ELSE
  108.         DO;
  109.             ZW_Rechnung = MTR_RESULT;
  110.             ZW_Kunde = OB.INVOICEE_NUMBER;
  111.         END;
  112.     IF PREFS.CLIENT_CODE = 1 THEN
  113.         ZW_Kunde = OB.INVOICEE.CUSTOMER.CLIENT_CODE;
  114.  
  115.     FORMAT_DATE_LONG date(s);
  116.     PRINTDATE = MTR_RESULT;
  117.  
  118.     FORMAT_DATE_SHORT OB.DATE_BILL;
  119.     BILL_DATE_SHORT = MTR_RESULT;
  120.  
  121.     w = OB.CURRENCY_USED;
  122.     IF w < 2 THEN
  123.         FORMAT_MONEY1 OB.TOTAL_M_ALL_CH.w;
  124.     ELSE
  125.         FORMAT_MONEY2 OB.TOTAL_M_ALL_CH.w;
  126.     ZW_Betrag    = MTR_RESULT;
  127.  
  128.  
  129.     ADDRESS VALUE FWPort;
  130.     CLEARDOC;
  131.     OPEN FWDokument;
  132.  
  133.     DruckString    = OB.OFFICE.ADDRESS.ADDRESS.2 || LF;
  134.     i = INDEX( DruckString, LF);
  135.     IF i > 0 THEN
  136.         DO;
  137.             DruckTeil    = LEFT( DruckString, (i - 1) );
  138.             DruckString = SUBSTR(DruckString, (i + 1) );
  139.             i = INDEX( DruckString, LF);
  140.         END;
  141.     ELSE
  142.         DruckTeil    = DruckString;
  143.     FIND "<OFFICE.ADDRESS.2>";
  144.     FINDNEXT;
  145.     STATUS LinePos;
  146.     PARSE VAR RESULT BegLine BegPosition EndLine EndPosition;
  147.     TYPE DruckTeil;
  148.     FIND "<PRINTDATE>"
  149.     TYPE PRINTDATE;
  150.  
  151.     DO WHILE( i > 0 );
  152.         DruckTeil    = LEFT( DruckString, (i - 1) );
  153.         DruckString = SUBSTR(DruckString, (i + 1) );
  154.         BegLine        = BegLine + 1;
  155.         MoveToLine BegLine 0;
  156.         TYPE DruckTeil;
  157.         i = INDEX( DruckString, LF);
  158.     END;
  159.  
  160.     FIND "<OFFICE.ADDRESS.ADDRESS.0>";
  161.     TYPE OB.OFFICE.ADDRESS.ADDRESS.0;
  162.  
  163.     DruckString    = OB.INVOICEE.CUSTOMER.ADDRESS.ADDRESS.2 || LF;
  164.     i = INDEX( DruckString, LF);
  165.     IF i > 0 THEN
  166.         DO;
  167.             DruckTeil    = LEFT( DruckString, (i - 1) );
  168.             DruckString = SUBSTR(DruckString, (i + 1) );
  169.             i = INDEX( DruckString, LF);
  170.         END;
  171.     ELSE
  172.         DruckTeil    = DruckString;
  173.     FIND "<CUSTOMER.ADDRESS.ADDRESS.2>";
  174.     STATUS LinePos;
  175.     PARSE VAR RESULT BegLine BegPosition EndLine EndPosition;
  176.     TYPE DruckTeil;
  177.     DO WHILE( i > 0 );
  178.         DruckTeil    = LEFT( DruckString, (i - 1) );
  179.         DruckString = SUBSTR(DruckString, (i + 1) );
  180.         BegLine        = BegLine + 1;
  181.         MoveToLine BegLine 0;
  182.         TYPE DruckTeil;
  183.         i = INDEX( DruckString, LF);
  184.     END;
  185.  
  186.     FIND "<OB.INVOICEE_NUMBER>";
  187.     TYPE ZW_Kunde;
  188.  
  189.     FIND "<OB.NUMBER>";
  190.     TYPE ZW_Rechnung;
  191.     FINDNEXT;
  192.     TYPE ZW_Rechnung;
  193.     MoveToLine 1 1;
  194.  
  195.     FIND "<OB.DATE_BILL>";
  196.     TYPE BILL_DATE_SHORT;
  197.     FINDNEXT;
  198.     TYPE BILL_DATE_SHORT;
  199.     MoveToLine 1 1;
  200.  
  201.     SELECT;
  202.         WHEN OB.INVOICEE.CUSTOMER.ADDRESS.SALUTATION = 0 THEN
  203.             DruckString = "Sehr geehrte Damen und Herren,";
  204.         WHEN OB.INVOICEE.CUSTOMER.ADDRESS.SALUTATION = 1 THEN
  205.             DruckString = "Sehr geehrtes Fräulein " || OB.INVOICEE.CUSTOMER.ADDRESS.SURNAME || ",";
  206.         WHEN OB.INVOICEE.CUSTOMER.ADDRESS.SALUTATION = 2 THEN
  207.             DruckString = "Sehr geehrter Frau " || OB.INVOICEE.CUSTOMER.ADDRESS.SURNAME || ",";
  208.         WHEN OB.INVOICEE.CUSTOMER.ADDRESS.SALUTATION = 3 THEN
  209.             DruckString = "Sehr geehrter Herr " || OB.INVOICEE.CUSTOMER.ADDRESS.SURNAME || ",";
  210.         OTHERWISE
  211.             DruckString = "Sehr geehrter Familie " || OB.INVOICEE.CUSTOMER.ADDRESS.SURNAME || ",";
  212.     END;
  213.     FIND "<CUSTOMER.ADDRESS.SALUTATION>"
  214.     TYPE DruckString;
  215.  
  216.     FIND "<OB.TOTAL_M_ALL_CH>";
  217.     TYPE ZW_Betrag;
  218.  
  219.     FIND "<OB.OFFICE.ADDRESS.BANK_NAME>";
  220.     TYPE OB.OFFICE.ADDRESS.BANK_NAME;
  221.  
  222.     FIND "<OB.OFFICE.ADDRESS.BANK_CODE_NUMBER>";
  223.     TYPE OB.OFFICE.ADDRESS.BANK_CODE_NUMBER;
  224.  
  225.     FIND "<OB.OFFICE.ADDRESS.ACCOUNT>";
  226.     TYPE OB.OFFICE.ADDRESS.ACCOUNT;
  227.  
  228.     FIND "<OFFICE.SUR_PRENAME>"
  229.     TYPE (OB.EMPLOYEE.ADDRESS.PRENAME OB.EMPLOYEE.ADDRESS.SURNAME);
  230.  
  231. RETURN;
  232.  
  233.